home *** CD-ROM | disk | FTP | other *** search
/ High Crimes Press Kit / High Crimes Press Kit.iso / pc / highcrimes.dxr / Internal_19_bird behaviour.ls < prev    next >
Encoding:
Text File  |  2002-03-18  |  429 b   |  25 lines
  1. property my, h, v, hm, vm, weight, anim, anim_count, facing
  2. global grass, bird
  3.  
  4. on beginSprite me
  5.   bird = me
  6.   my = sprite(me.spriteNum)
  7.   v = 0
  8.   h = 0
  9.   hm = 0
  10.   vm = 3
  11.   weight = 10
  12. end
  13.  
  14. on exitFrame me
  15.   v = v + (vm / weight)
  16.   vm = min(max(vm, -200), 10)
  17.   vm = vm * 0.99990000000000001
  18.   vm = vm + (v < grass.v) - (v > grass.v)
  19.   if abs(v - grass.v) < 2 then
  20.     vm = 0
  21.     v = grass.v
  22.   end if
  23.   my.loc = point(h, v)
  24. end
  25.